home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 196 / 196.d81 / b.cad 3d break / b.a7ae (.txt)
Encoding:
Commodore BASIC  |  2000-01-01  |  48.2 KB  |  61 lines
  1. 10 dv=8
  2. 11 poke 53280,12 :poke 53281,12
  3. 12 print"[155][147]";chr$(14)
  4. 13 a$="cad 3d break"
  5. 14 gosub 34:print""
  6. 15 b$="[152][152][152][152][152][152][152][152][152][151][144][144][144][144][144][144][144][144][144][144][151][152][152][152][152][152][152][152][152][152][152]" : a=1
  7. 16 a$="[213]se a disk copier to backup your" :gosub 34
  8. 17 a$="original disk.  [204]oad this program and" :gosub 34
  9. 18 a$="put your backup into drive 8.  [215]hen you" :gosub 34
  10. 19 a$="enter [210][213][206], three of the files on drive" :gosub 34
  11. 20 a$="8 will be modified, removing the copy" :gosub 34
  12. 21 a$="protection and making them [211]uper[195][208][213]" :gosub 34
  13. 22 a$="compatible.  [212]he files may be copied" :gosub 34
  14. 23 a$="with any file copier.                " :gosub 34
  15. 24 print
  16. 25 gosub 37
  17. 26 printmid$(b$,a+1,1)
  18. 27 a$="press a key to begin"
  19. 28 gosub 34
  20. 29 a=(a+1)and31
  21. 30 geta$
  22. 31 ifa$=""thenprint"[145][145]"; :goto 26
  23. 32 gosub 40: print""; :goto 46
  24. 33 :
  25. 34 printtab((40-len(a$))/2);a$
  26. 35 return
  27. 36 :
  28. 37 ifnotpeek(53436)and128thenpoke53370,0
  29. 38 return
  30. 39 :
  31. 40 ifnotpeek(53436)and128thenpoke53371,0
  32. 41 return
  33. 42 :
  34. 43 ifnotpeek(53436)and128thenpoke53371,0
  35. 44 return
  36. 45 :
  37. 46 open 1,dv,15
  38. 47 a$="s:cad 3d"
  39. 48 print#1,a$
  40. 49 a$="s:"+chr$(0)
  41. 50 print#1,a$
  42. 51 a$="r:cad2=----------------"
  43. 52 print#1,a$
  44. 53 close 1
  45. 54 :
  46. 55 open 2,dv,2,"@0:cad 3d,p,w"
  47. 56 print#2,chr$(167);chr$(2);
  48. 57 for x=4775 to 4874
  49. 58 : print#2,chr$(peek(x));
  50. 59 : next
  51. 60 close 2
  52. 61 :
  53. 62 open 2,dv,2,"@0:cad1,p,w"
  54. 63 print#2,chr$(0);chr$(200);
  55. 64 for x=51200 to 51404
  56. 65 : print#2,chr$(peek(x));
  57. 66 : next
  58. 67 close 2
  59. 68 :
  60. 69 a$="[158][145]  modifications finished" :gosub 34
  61.